0 REM << CD42-10 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #38-4 :
3 PRINT"[147]MAXIMUM SQUARE "
4 REM    SOLUTION BY
5 REM    JIM SPEERS
6 REM ==================================
100 FORA=1TO7:FORB=A+1TO8:FORC=B+1TO9
110 IA(A)=1:IA(B)=1:IA(C)=1
120 N=1:FORI=1TO9:IFIA(I)=1THEN140
130 IB(N)=I:N=N+1
140 NEXTI
150 FORD=1TO4:FORE=D+1TO5:FORF=E+1TO6
160 N=1:K=1:FORI=1TO6:IF(D=IORE=IORF=I)THENX(N)=IB(I):N=N+1:GOTO200
170 Y(K)=IB(I):K=K+1
200 NEXTI:R=A*B*C:S=X(1)*X(2)*X(3):T=Y(1)*Y(2)*Y(3):Q=R+S+T
210 IFQ>MTHENM=Q:PRINTA;B;C;"="R:FORI=1TO3:PRINTX(I);:NEXT:PRINT"=";S:FORI=1TO3:PRINTY(I);:NEXT:PRINT"=";T:PRINT"TOTAL=";M:PRINT""
220 NEXTF,E,D
230 FORI=1TO9:IA(I)=0:NEXTI
240 NEXTC,B,A